Music of the O.C. top of page

Author: Jessica Marx

Date: 02 August 2019

# load packages, install if needed
packages = c(
      "dplyr"
    , "ggplot2"
    , "formattable"
    , "plotly"
    , "RColorBrewer"
    , "scales"
    , "stringr"
    , "tidyr"
    , "ElmeR"
    , "RJDBC"
    , "kableExtra"
    , "wesanderson"
    , "reshape2"
    , "rtweet"
    , "tidytext"
    , "lubridate"
    , "wordcloud"
    , "ggpubr"
    , "ggthemes"
    , "knitrBootstrap"
    , "DT"
    , "MatchIt"
    , "beyonce"
    , "UpSetR"
    , "gganimate"
    , "wordcloud2"
    , "widyr"
    , "ggraph"
    , "igraph"
    , "aod"
    , "corrplot"
    , "ROCR"
    , "InformationValue"
    , "car"
    , "glmnet"
    , "caret"
    , "kernlab"
    , "pdp"
    , "rpart.plot"
    , "rpart"
    , "e1071"
    )

package.check <- lapply(packages, FUN = function(x) {
  if (!require(x, character.only = TRUE)) {
    install.packages(x, dependencies = TRUE)
    library(x, character.only = TRUE)
  }
})


options(scipen= 999)
theme_set(theme_minimal(base_size = 9, base_family = "Roboto"))

#functions!

#round 
round.to <- function(x, b) {
  round(x/b)*b
}

#odds to probability
odds.to.prob <- function(odds) {
  odds/(1 + odds) 
}

#log odds to probability 
logit2prob <- function(logit){
  odds <- exp(logit)
  prob <- odds / (1 + odds)
  return(prob)
}

#convert to a range
range01 <- function(x){
  (x-min(x))/(max(x)-min(x))
}

#function to get vector of color values from RColorBrewer
get_hex_values <- function(pal) {
    brewer.pal(brewer.pal.info[pal, "maxcolors"], pal)
}
paired_cols <- get_hex_values(pal = "Paired")

Most Frequently Played Artists

By Season

Block Party, Death Cab, Youth Group, Zero 7, Sufjan Stevens, and M. Craft are the only artists to span 3 seasons.

Artist Country of Origin

Genres